home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / SD Gradebook.cpt / SuperDuper Gradebook 1.25 / card_2454.txt < prev    next >
Text File  |  1988-07-21  |  13KB  |  546 lines
  1. -- card: 2454 from stack: in.25
  2. -- bmap block id: 6145
  3. -- flags: 4000
  4. -- background id: 2780
  5. -- name: averages
  6. ----- HyperTalk script -----
  7. on openCard
  8.   get the short name of this stack
  9.   put it into card field "stackname"
  10. end openCard
  11.  
  12.  
  13. -- part 1 (button)
  14. -- low flags: 00
  15. -- high flags: A003
  16. -- rect: left=28 top=142 right=164 bottom=163
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Minor Assignment
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   global minorGradeToScore
  28.   push card
  29.   put empty into card field "minor score average"
  30.   show card field "message"
  31.   set the lockscreen to true
  32.   go card "first record"
  33.   get the number of this card
  34.   put it into start
  35.   get the number of last card
  36.   put it into finish
  37.   put 0 into headcount
  38.   put 0 into numberholder
  39.   repeat with count = start to finish
  40.     go card count
  41.     if field "withdrew" is empty then
  42.       get field "av minor s"
  43.       put it+numberholder into numberholder
  44.       put headcount+1 into headcount
  45.       play harpsichord  b
  46.     end if
  47.   end repeat
  48.   put numberholder/headcount into theAverageScore
  49.   pop card
  50.   set the lockscreen to false
  51.   hide card field "message"
  52.   put (round(theAverageScore * 100))/100 into theAverageScore
  53.   put theAverageScore into card field "minor score average"
  54.   if minorGradeToScore then
  55.     get letterGradeOf (theAverageScore)
  56.   else
  57.     get minorGradeOf (theAverageScore)
  58.   end if
  59.   put it into card field "minor grade average"
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 2 (button)
  65. -- low flags: 00
  66. -- high flags: A003
  67. -- rect: left=28 top=170 right=192 bottom=163
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Exam
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   global examgradetoscore
  79.   push card
  80.   put empty into card field "exam score average"
  81.   show card field "message"
  82.   set the lockscreen to true
  83.   go card "first record"
  84.   get the number of this card
  85.   put it into start
  86.   get the number of last card
  87.   put it into finish
  88.   put 0 into headcount
  89.   put 0 into numberholder
  90.   repeat with count = start to finish
  91.     go card count
  92.     if field "withdrew" is empty then
  93.       get field "av exam s"
  94.       put it+numberholder into numberholder
  95.       put headcount+1 into headcount
  96.       play harpsichord  b
  97.     end if
  98.   end repeat
  99.   put numberholder/headcount into theAverageScore
  100.   pop card
  101.   set the lockscreen to false
  102.   hide card field "message"
  103.   put (round(theAverageScore * 100))/100 into theAverageScore
  104.   put theAverageScore into card field "exam score average"
  105.   if examGradeToScore then
  106.     get letterGradeOf (theAverageScore)
  107.   else
  108.     get examGradeOf (theAverageScore)
  109.   end if
  110.   put it into card field "exam grade average"
  111. end mouseUp
  112.  
  113.  
  114. -- part 3 (button)
  115. -- low flags: 00
  116. -- high flags: A003
  117. -- rect: left=28 top=197 right=219 bottom=163
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: Paper
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   global paperGradeToScore
  129.   push card
  130.   put empty into card field "paper score average"
  131.   show card field "message"
  132.   set the lockscreen to true
  133.   go card "first record"
  134.   get the number of this card
  135.   put it into start
  136.   get the number of last card
  137.   put it into finish
  138.   put 0 into headcount
  139.   put 0 into numberholder
  140.   repeat with count = start to finish
  141.     go card count
  142.     if field "withdrew" is empty then
  143.       get field "av paper s"
  144.       put it+numberholder into numberholder
  145.       put headcount+1 into headcount
  146.       play harpsichord  b
  147.     end if
  148.   end repeat
  149.   put numberholder/headcount into theAverageScore
  150.   pop card
  151.   set the lockscreen to false
  152.   hide card field "message"
  153.   put (round(theAverageScore * 100))/100 into theAverageScore
  154.   put theAverageScore into card field "exam score average"
  155.   if paperGradeToScore then
  156.     get letterGradeOf (theAverageScore)
  157.   else
  158.     get paperGradeOf (theAverageScore)
  159.   end if
  160.   put it into card field "paper grade average"
  161. end mouseUp
  162.  
  163.  
  164. -- part 4 (button)
  165. -- low flags: 00
  166. -- high flags: A003
  167. -- rect: left=28 top=225 right=247 bottom=163
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 1
  171. -- font id: 0
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: Final Exam
  176. ----- HyperTalk script -----
  177. on mouseUp
  178.   global finalGradeToScore
  179.   push card
  180.   put empty into card field "final score average"
  181.   show card field "message"
  182.   set the lockscreen to true
  183.   go card "first record"
  184.   get the number of this card
  185.   put it into start
  186.   get the number of last card
  187.   put it into finish
  188.   put 0 into headcount
  189.   put 0 into numberholder
  190.   repeat with count = start to finish
  191.     go card count
  192.     if field "withdrew" is empty then
  193.       get field "final exam score"
  194.       put it+numberholder into numberholder
  195.       put headcount+1 into headcount
  196.       play harpsichord  b
  197.     end if
  198.   end repeat
  199.   put numberholder/headcount into theAverageScore
  200.   pop card
  201.   set the lockscreen to false
  202.   hide card field "message"
  203.   put (round(theAverageScore * 100))/100 into theAverageScore
  204.   put theAverageScore into card field "final score average"
  205.   if finalGradeToScore then
  206.     get letterGradeOf (theAverageScore)
  207.   else
  208.     get finalGradeOf (theAverageScore)
  209.   end if
  210.   put it into card field "final grade average"
  211. end mouseUp
  212.  
  213.  
  214. -- part 5 (button)
  215. -- low flags: 00
  216. -- high flags: A003
  217. -- rect: left=28 top=252 right=274 bottom=163
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: Term
  226. ----- HyperTalk script -----
  227. on mouseUp
  228.   push card
  229.   put empty into card field "term score average"
  230.   show card field "message"
  231.   set the lockscreen to true
  232.   go card "first record"
  233.   get the number of this card
  234.   put it into start
  235.   get the number of last card
  236.   put it into finish
  237.   put 0 into headcount
  238.   put 0 into numberholder
  239.   repeat with count = start to finish
  240.     go card count
  241.     if field "withdrew" is empty then
  242.       get field "term score"
  243.       put it+numberholder into numberholder
  244.       put headcount+1 into headcount
  245.       play harpsichord  b
  246.     end if
  247.   end repeat
  248.   put numberholder/headcount into theAverageScore
  249.   pop card
  250.   set the lockscreen to false
  251.   hide card field "message"
  252.   put (round(theAverageScore * 100))/100 into theAverageScore
  253.   put theAverageScore into card field "term score average"
  254.   get letterGradeOf (theAverageScore)
  255.   put it into card field "term grade average"
  256. end mouseUp
  257.  
  258.  
  259. -- part 6 (field)
  260. -- low flags: 00
  261. -- high flags: 0002
  262. -- rect: left=210 top=142 right=160 bottom=333
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 0
  266. -- font id: 3
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: minor score average
  271.  
  272.  
  273. -- part 7 (field)
  274. -- low flags: 00
  275. -- high flags: 0002
  276. -- rect: left=210 top=170 right=188 bottom=333
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 0
  280. -- font id: 3
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: exam score average
  285.  
  286.  
  287. -- part 8 (field)
  288. -- low flags: 00
  289. -- high flags: 0002
  290. -- rect: left=210 top=198 right=216 bottom=333
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 0
  294. -- font id: 3
  295. -- text size: 12
  296. -- style flags: 0
  297. -- line height: 16
  298. -- part name: paper score average
  299.  
  300.  
  301. -- part 9 (field)
  302. -- low flags: 00
  303. -- high flags: 0002
  304. -- rect: left=210 top=226 right=244 bottom=333
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 0
  308. -- font id: 3
  309. -- text size: 12
  310. -- style flags: 0
  311. -- line height: 16
  312. -- part name: final score average
  313.  
  314.  
  315. -- part 10 (field)
  316. -- low flags: 00
  317. -- high flags: 0002
  318. -- rect: left=210 top=255 right=273 bottom=333
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 0 / 0
  321. -- text alignment: 0
  322. -- font id: 3
  323. -- text size: 12
  324. -- style flags: 0
  325. -- line height: 16
  326. -- part name: term score average
  327.  
  328.  
  329. -- part 11 (field)
  330. -- low flags: 00
  331. -- high flags: 0002
  332. -- rect: left=352 top=142 right=160 bottom=475
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 0 / 0
  335. -- text alignment: 0
  336. -- font id: 3
  337. -- text size: 12
  338. -- style flags: 0
  339. -- line height: 16
  340. -- part name: minor grade average
  341.  
  342.  
  343. -- part 12 (field)
  344. -- low flags: 00
  345. -- high flags: 0002
  346. -- rect: left=352 top=170 right=188 bottom=475
  347. -- title width / last selected line: 0
  348. -- icon id / first selected line: 0 / 0
  349. -- text alignment: 0
  350. -- font id: 3
  351. -- text size: 12
  352. -- style flags: 0
  353. -- line height: 16
  354. -- part name: exam grade average
  355.  
  356.  
  357. -- part 13 (field)
  358. -- low flags: 00
  359. -- high flags: 0002
  360. -- rect: left=352 top=198 right=216 bottom=475
  361. -- title width / last selected line: 0
  362. -- icon id / first selected line: 0 / 0
  363. -- text alignment: 0
  364. -- font id: 3
  365. -- text size: 12
  366. -- style flags: 0
  367. -- line height: 16
  368. -- part name: paper grade average
  369.  
  370.  
  371. -- part 14 (field)
  372. -- low flags: 00
  373. -- high flags: 0002
  374. -- rect: left=352 top=226 right=244 bottom=475
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 0 / 0
  377. -- text alignment: 0
  378. -- font id: 3
  379. -- text size: 12
  380. -- style flags: 0
  381. -- line height: 16
  382. -- part name: final grade average
  383.  
  384.  
  385. -- part 15 (field)
  386. -- low flags: 00
  387. -- high flags: 0002
  388. -- rect: left=352 top=255 right=273 bottom=475
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 0
  392. -- font id: 3
  393. -- text size: 12
  394. -- style flags: 0
  395. -- line height: 16
  396. -- part name: term grade average
  397.  
  398.  
  399. -- part 16 (button)
  400. -- low flags: 00
  401. -- high flags: A004
  402. -- rect: left=194 top=296 right=316 bottom=264
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 1
  406. -- font id: 3
  407. -- text size: 9
  408. -- style flags: 256
  409. -- line height: 12
  410. -- part name: to Records
  411. ----- HyperTalk script -----
  412. on mouseUp
  413.   visual effect dissolve
  414.   go card "first record"
  415. end mouseUp
  416.  
  417.  
  418.  
  419. -- part 17 (button)
  420. -- low flags: 00
  421. -- high flags: A003
  422. -- rect: left=30 top=280 right=303 bottom=163
  423. -- title width / last selected line: 0
  424. -- icon id / first selected line: 0 / 0
  425. -- text alignment: 1
  426. -- font id: 0
  427. -- text size: 12
  428. -- style flags: 0
  429. -- line height: 16
  430. -- part name: All The Above
  431. ----- HyperTalk script -----
  432. on mouseup
  433.   beep
  434.   send mouseup to card button "minor assignment"
  435.   beep
  436.   send mouseup to card button "Exam"
  437.   beep
  438.   send mouseup to card button "Paper"
  439.   beep
  440.   send mouseup to card button "Final Exam"
  441.   beep
  442.   send mouseup to card button "Term"
  443. end mouseUp
  444.  
  445.  
  446.  
  447. -- part 18 (field)
  448. -- low flags: 80
  449. -- high flags: 0004
  450. -- rect: left=361 top=32 right=108 bottom=482
  451. -- title width / last selected line: 0
  452. -- icon id / first selected line: 0 / 0
  453. -- text alignment: 1
  454. -- font id: 3
  455. -- text size: 12
  456. -- style flags: 0
  457. -- line height: 16
  458. -- part name: message
  459.  
  460.  
  461. -- part 20 (button)
  462. -- low flags: 00
  463. -- high flags: A003
  464. -- rect: left=352 top=289 right=310 bottom=398
  465. -- title width / last selected line: 0
  466. -- icon id / first selected line: 0 / 0
  467. -- text alignment: 1
  468. -- font id: 3
  469. -- text size: 9
  470. -- style flags: 256
  471. -- line height: 12
  472. -- part name: clear
  473. ----- HyperTalk script -----
  474. on mouseUp
  475.   repeat with count = 1 to 10
  476.     put empty into card field count
  477.   end repeat
  478. end mouseUp
  479.  
  480.  
  481.  
  482. -- part 22 (button)
  483. -- low flags: 00
  484. -- high flags: A004
  485. -- rect: left=268 top=296 right=316 bottom=337
  486. -- title width / last selected line: 0
  487. -- icon id / first selected line: 0 / 0
  488. -- text alignment: 1
  489. -- font id: 3
  490. -- text size: 9
  491. -- style flags: 256
  492. -- line height: 12
  493. -- part name: to Distribs
  494. ----- HyperTalk script -----
  495. on mouseUp
  496.   visual effect dissolve
  497.   go card "Grade Distributions"
  498. end mouseUp
  499.  
  500.  
  501.  
  502. -- part 23 (button)
  503. -- low flags: 00
  504. -- high flags: A003
  505. -- rect: left=433 top=289 right=310 bottom=475
  506. -- title width / last selected line: 0
  507. -- icon id / first selected line: 0 / 0
  508. -- text alignment: 1
  509. -- font id: 3
  510. -- text size: 9
  511. -- style flags: 256
  512. -- line height: 12
  513. -- part name: print
  514. ----- HyperTalk script -----
  515. on mouseUp
  516.   doMenu "Print Card"
  517. end mouseUp
  518.  
  519.  
  520.  
  521. -- part 24 (field)
  522. -- low flags: 01
  523. -- high flags: 0000
  524. -- rect: left=218 top=86 right=105 bottom=482
  525. -- title width / last selected line: 0
  526. -- icon id / first selected line: 0 / 0
  527. -- text alignment: 0
  528. -- font id: 3
  529. -- text size: 12
  530. -- style flags: 256
  531. -- line height: 16
  532. -- part name: stackname
  533.  
  534.  
  535. -- part contents for card part 18
  536. ----- text -----
  537. Relax...
  538. this will take
  539. a few
  540. minutes
  541.  
  542. 11
  543.  
  544. -- part contents for card part 24
  545. ----- text -----
  546. Orig. Clean Gradebook 1.25